<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1</name>
<id>-1</id>
<cardCount>3</cardCount>
<cardID>2938</cardID>
<listID>2559</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>288</width>
<height>240</height>
</cardSize>
<script>on openstackwaitcursorreset menubarset the userlevel to 6delete menu "font"delete menu "style"delete menu "objects"delete menu "tools"delete menu "go"put "Quit MacMail" into menu "file"set the commandchar of menuitem 1 of menu "file" to "Q"set the menumessage of menuitem 1 of menu "file" to "quitit"repeat 9delete menuitem 7 of menu "edit"end repeatend openstackon adduser itgo firstput it into line the number of lines in cd fld "userlist" + 1 of cd fld "userlist"go next carddomenu new cardset the name of this card to itput it into bg fld "name"go firstend adduseron deleteuser seltext, selline, srverpassif srverpass is not serverpass() then return "Bad server password."go first cdgo cd seltextif the short name of this card contains "MMS" thenreturn "User not found"exit deleteuserend ifdomenu "delete card"go first cddelete line selline of cd fld "userlist"end deleteuserfunction usrpass user, srverpassif srverpass is not serverpass() then return "Bad server password."if there is a card user then return bg fld "password" of card userelse return "Bad username: " & userend usrpassfunction userwait user, srverpassif srverpass is not serverpass() then return "Bad server password."if there is a card user then return bg fld "waiting" of card userelse return "Bad username: " & userend userwaiton updateuserpass user, passw, srverpassif srverpass is not serverpass() then return "Bad server password."if there is a card user then put passw into bg fld "password" of card userelse return "Bad username: " & userend updateuserpasson quititdomenu "Quit HyperCard"end quititfunction pingif the short name of this cd is "MMSI-main" then return "OK,RM"else return "OK,OL"end pingon waitcursorset the cursor to watchend waitcursorfunction userlistreturn cd fld "userlist" of first cardend userlistfunction serverpassreturn cd fld "serverpass" of first cardend serverpass</script>
